home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #14
/
Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO
/
prog_bas
/
basicwnt.zip
/
INPUT.BAS
< prev
next >
Wrap
BASIC Source File
|
1996-02-11
|
2KB
|
56 lines
0 rem *
1 rem *
2 rem *INPUT_TEST_FOR_NITROUSBASIC
3 rem *
4 rem *
10 cls
15 gosub 500 :rem INIT_GLOBAL_VARS
20 gosub 1000 :rem DISPLAY_FORM
30 gosub 5000 :rem INPUT_DATA
40 gosub 10000 :rem DISPLAY_RESULT
50 gosub 20000 :rem SAVE_DATA_TO_FILE
100 end
500 FIRST$="First Name" :MIDDLE$="Middle Initial" :LAST$="Last Name"
510 STREET$="Street" :CITY$="City" :ZIP$="Zip code" :PHONE$="Phone"
515 STATE$="State"
520 return
1000 rem **********
1010 rem **********
1011 rem ******DISPLAY_FORM**********
1020 cursor (1 ,1 ):print FIRST$:cursor (30 ,1 ):print MIDDLE$
1040 cursor (50 ,1 ):print LAST$:cursor (1 ,2 ):print STREET$
1060 cursor (30 ,2 ):print CITY$:cursor (50 ,2 ):print STATE$
1080 cursor (1 ,3 ):print ZIP$:cursor (30 ,3 ):print PHONE$
2000 return
5000 rem **********
5010 rem **********
5011 rem ******INPUT_FORM_DATA***********
5020 cursor (1 +len (FIRST$),1 ):input ":" ,FIRST$
5030 cursor (30 +len (MIDDLE$),1 ):input ":" ,MIDDLE$
5040 cursor (50 +len (LAST$),1 ):input ":" ,LAST$
5050 cursor (1 +len (STREET$),2 ):input ":" ,STREET$
5060 cursor (30 +len (CITY$),2 ):input ":" ,CITY$
5070 cursor (50 +len (STATE$),2 ):input ":" ,STATE$
5080 cursor (1 +len (ZIP$),3 ):input ":" ,ZIP$
5090 cursor (30 +len (PHONE$),3 ):input ":" ,PHONE$
5200 return
10000 rem **********
10010 rem **********
10020 rem **********DISPLAY_RESULTS*********
10030 cursor (1 ,5 ):print
10040 print "Full name : " ;FIRST$;" " ;MIDDLE$;" " ;LAST$
10050 print "Address : " ;STREET$
10060 print "City/State/Zip : " ;CITY$;" " ;STATE$;" " ;ZIP$
10070 print "Phone Number : " ;PHONE$
10100 return
20000 rem **********
20010 rem **********
20020 rem **********SAVE_RESULTS_TO_FILE*********
20025 print :print "Saving data to file: DATA.TXT" :print
20030 open "data.txt" for output as #1
20040 print #1 ,"Full name : " ;FIRST$;" " ;MIDDLE$;" " ;LAST$
20050 print #1 ,"Address : " ;STREET$
20060 print #1 ,"City/State/Zip : " ;CITY$;" " ;STATE$;" " ;ZIP$
20070 print #1 ,"Phone Number : " ;PHONE$
20080 print #1 :close #1 :return